home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
SELECT-1.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
1KB
|
40 lines
' SELECT-1.BAS
' This program asks the user for his or her name, prints a menu,
' and asks the user to choose a menu item. The program then
' displays a message based on which menu item the user chose.
CLS
INPUT "Please enter your name: ", userName$
PRINT
PRINT "Congratulations, "; userName$; "! You've won the final"
PRINT "round of Go Ahead--Make My Deal!! Please choose"
PRINT "which prize you want:"
PRINT
PRINT , "1. Door #1"
PRINT , "2. What's behind the curtain"
PRINT , "3. The Big Pink Box"
PRINT
INPUT "Please enter 1, 2, or 3: ", menuNum%
PRINT
SELECT CASE menuNum%
CASE 1
PRINT "** It's a new car!!! **"
PRINT "Yes, it's the new Land Yacht 2000,"
PRINT "complete with Guzzle-O-Matic!"
CASE 2
PRINT "** 500 pogo sticks!!! **"
PRINT "Yes, you and your entire family can hop till you"
PRINT "drop with the latest in pogoing fun!"
CASE 3
PRINT "** A lifetime supply of pickled herring!!! **"
PRINT "Yes, twelve thousand jars of Smelz-Good"
PRINT "pickled herring delivered to your front door!"
END SELECT
PRINT
PRINT "Thanks for playing!"